
  10 :RETURN ;CLEAR ;NT=0
  20 Q=0;BC=RND (32)×8;FC=BC+4+RND (32)×8;FOR Z=0TO 89;@(Z)=48;NEXT Z
  30 PRINT "1-CHECKBOOK BALANCER
  40 PRINT "2-COMPOUND INTEREST
  50 IF KP=50GOTO 200
  60 PRINT "INPUT STATEMENT BALANCE";A=0;GOSUB 1000
  70 PRINT "CHECKS NOT ON STATEMENT";A=18;GOSUB 1000
  75 IF Q=1GOTO 90
  80 $-@(0),@(18),@(0);GOTO 70
  90 PRINT "DEPOSITS NOT ON STATEMENT";A=18;GOSUB 1000
  95 IF Q=2GOTO 110
 100 $+@(0),@(18),@(0);GOTO 90
 110 PRINT "FINAL AMOUNT IN CHECKBOOK SHOULD BE: $",;A=0;GOSUB 2000
 120 GOTO 20
 200 @(10)=49
 210 PRINT "INPUT DEPOSIT";A=18;GOSUB 1000
 220 PRINT "INPUT INTEREST PER YEAR";A=36;GOSUB 1000
 230 $÷@(36),@(0),@(36)
 240 PRINT "INPUT # OF TIMES PER YEAR INTEREST IS COMPOUNDED";A=54;GOSUB 1000
 245 IF Q=1Q=0;@(Z-1)=48;GOSUB 1050
 250 $÷@(36),@(54),@(36)
 260 PRINT "INPUT # OF YEARS";A=72;GOSUB 1000
 265 IF Q=1Q=0;@(Z-1)=48;GOSUB 1050
 267 PRINT "COMPUTING!
 270 $×@(54),@(72),@(72);$÷@(0),@(0),@(0);$+@(0),@(36),@(54);$+@(0),@(36),@(36);$-@(72),@(0),@(72)
 320 $-@(72),@(0),@(72);IF @(89)=56GOTO 400
 340 $×@(36),@(54),@(36);GOTO 320
 400 $×@(18),@(36),@(36)
 410 PRINT "ORIGINAL DEPOSIT:";A=18;GOSUB 2000
 420 PRINT "NEW AMOUNT:";A=36;GOSUB 2000
 430 GOTO 20
1000 FOR Z=A+17TO A+10STEP -1;@(Z)=KP;TV=@(Z);IF @(Z)=31Z=Z+2
1010 IF @(Z)=13@(Z)=48;Q=Q+1;RETURN 
1020 IF @(Z)=46GOTO 1040
1030 NEXT Z;PRINT " TOO LARGE!";GOTO 20
1040 @(Z)=KP;TV=@(Z);@(Z-1)=KP;TV=@(Z-1)
1050 FOR C=ATO A+5;@(C)=48;NEXT C
1060 FOR B=Z-1TO A+17;@(C)=@(B);C=C+1;NEXT B
1070 FOR B=CTO A+17;@(B)=48;NEXT B;PRINT ;RETURN 
2000 IF @(A+16)#48PRINT "OVERFLOW!";GOTO 20
2005 IF @(A+17)=56PRINT "-",
2010 FOR Z=A+15TO A+8STEP -1;IF @(Z)#48GOTO 2030
2020 NEXT Z;GOTO 2040
2030 FOR B=ZTO A+8STEP -1;TV=@(B);NEXT B
2040 PRINT ".",;TV=@(A+7);TV=@(A+6);PRINT ;RETURN 
>RUN 
